home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Create / create-tonality < prev    next >
Encoding:
Text File  |  1998-10-23  |  795 b   |  23 lines  |  [TEXT/ScoM]
  1. create-tonality name description
  2.  
  3. Defines tonality zone names and their corresponding notes. Description can be a note list or a list of half-tones. Tonalities are activated with activate-tonality. Place your definitions in source file or SC Init file.
  4.  
  5. (create-tonality blues1 '(c 3 d# 3 f 3 f# 3 g 3 a# 3))
  6. (create-tonality ownscale '(1 2 3 4 5 6))
  7.  
  8. (activate-tonality (blues1 c 2))
  9. --> ((c 2 d# 2 f 2 f# 2 g 2 a# 2))
  10.  
  11. (activate-tonality (ownscale d 3))
  12. --> ((d 3 d# 3 e 3 f 3 f# 3 g 3))
  13.  
  14. or use functions: 
  15.  
  16. (create-tonality fiboscale 
  17.        (list (fibonacci 3) (fibonacci 4) (fibonacci 5) 
  18.              (fibonacci 6) (fibonacci 7) (fibonacci 8) 
  19.              (fibonacci 9) (fibonacci 10) (fibonacci 11)))
  20.  
  21. (activate-tonality (fiboscale d 3))
  22. --> ((d 3 d# 3 e 3 f# 3 a 3 d 4 a# 4 b 5 g# 7))
  23.